home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / SBAR.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1.7 KB  |  22 lines
  1.  
  2. *                                                                               
  3. *SUB FROM AR                                                                    
  4. *A IS AR1 OR AR0                                                                
  5. *B IS CONST OR VAR                                                              
  6. *                                                                               
  7. SBAR   $MACRO  A,B,T                                                            
  8.        $IF  T.L=0        ASSIGN TEMP                                            
  9.        $ASG 'XR1' TO T.S                                                        
  10.        $ENDIF                                                                   
  11.        SAR  :A:,:T:      SAVE :A:                                               
  12.        $IF  B.SA&$UNDF                                                          
  13.        $ASG -B.V TO B.V                                                         
  14.        LCAC :B.V:        LOAD -:B: VALUE                                        
  15.        ADD  :T:,0        ADD :T: VALUE                                          
  16.        $ELSE                                                                    
  17.        LAC :T:,0         LOAD :T:                                               
  18.        SUB :B:,0         SUB :B: VALUE                                          
  19.        $ENDIF                                                                   
  20.        SACL :T:,0        RESTORE                                                
  21.        LAR  :A:,:T:      RELOAD :A:                                             
  22.        $END